home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak 2 - Disc 2
/
Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso
/
Chat---IRC
/
TURBOIRC.ZIP
/
data1.cab
/
TurboIRC_Scripts
/
EControlQueries.txt
< prev
next >
Wrap
Text File
|
1999-05-05
|
883b
|
35 lines
// Query Control TurboIRC Script
// Category : Utilities
// Copyright ⌐ Chourdakis Michael , 1998
// For * PRIVMSG $mynick :* LOCKED
// Load it : /_event ControlQueries 3 0 0 +:* PRIVMSG $mynick :*|||?.\demos\qc.txt
if (FindWindowFromTitle($nick)!=-1)
// already exists
#unlock
return
endif
int IsSpam = 0
string TimeDate = sprintf("%u-%u , %u:%u",$day,$month,$_hour,$minute)
if (IsMatching("$3*","*http://*",1,0)==1)
IsSpam = 1
endif
if (IsSpam==0)
/query MyQueryControl
/addtext MyQueryControl ***Query [%TimeDate%] from $nick!$ident@$IP $3*
return
endif
// Here , it is SPAM
string ToSet = sprintf("%s!%s@%s [%s] : %s\r\n",$nick,$ident,$IP,TimeDate,"$3*")
string IniF = "C:\\TURBOIRC\\spam.txt"
AppendText(IniF,ToSet)
/query MyQueryControl
/addtext MyQueryControl ***SPAM Query [%TimeDate%] from $nick!$ident@$IP $3* (logged)